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SoftSide Selections #42 + 


by Jon Voskuil 


Modifications and enhancements by the SoftSide programming staff. 


Microtext 2.0 is a word processor for a 16K TRS-80® Model I or Ill 
(32K with disk). 


Microtext 2.0 displays a mostly blank screen with an instruction summary 
line at the top or bottom. You can start typing, or load a previously saved file 
from disk or tape. To capitalize characters on the TRS-80 Model I version, 
place an ‘‘@’’ symbol before the letter. Use two (‘‘@@’’) to capitalize the en- 
tire word. Normal use of the Model I’s shift key inserts the ‘‘@’’ in front of in- 
dividual characters. TRS-80 Model III users, of course, can work in true mixed 
case. TRS-80 Model I users with a lower-case modification and driver installed 
should delete line 470 to use true mixed case. Naturally, you should check your 
typing with SWAT before making any changes. In addition, pressing SHIFT- 
left-arrow erases the line you are currently typing. 


Primary Commands 

Use the CLEAR key to access editor and system functions. Pressing and 
releasing CLEAR, followed by S, L, R, P, or E enters the save, load, review, 
printout, or edit functions. Although not mentioned in the command sum- 
mary on the screen, pressing CLEAR-Q will quit the program. 

Saving and loading files is simply a matter of answering the questions about 
the medium to be used (tape or disk) and, if disk, the file name. Once you have 
entered a file name, it becomes the default until you specify another one or exit 
the program: just press Enter when asked for the file name. This simplifies 
repeated saves during entry of a long document. 

The review function causes the computer to return to the beginning of the 
text, and scroll through it to the end. Press the space bar to pause. Press the 
space bar again to display one or more lines. Use Enter to continue the scroll- 
ing. E takes you to the editing mode. 
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Editing 

To move the cursor up and down, use the up- and down-arrow keys. 
CLEAR exits to the review mode. D deletes the line at the cursor. X deletes 
everything from the cursor to the end of the text. Enter allows you to edit the 
line at the cursor. F finds a string in your text. 

If you choose to edit a line, the screen clears, and displays several lines of 
text with a gap in the middle. The cursor is at the beginning of the line, and 
you can proceed to type in a new one. It can be shorter than the original, or oc- 
cupy multiple screen lines, To retain any part of the original line, use the right- 
arrow key to retype that portion automatically. Whatever you type in replaces 
the entire line. When you finish entering the new text, press CLEAR-F (not 
Enter, unless you want a carriage return in the text itself). The computer 
checks to see if the text lines need to be rearranged, and returns you to the 
review mode. 


Find 

The find function, accessed by pressing F from the edit mode, asks you what 
string to search for. If you have already done a search, Enter defaults to the 
previous string. The program looks for your string, beginning with the line the 
cursor is on, and puts the cursor on the first line in which your string occurs. 
Since a multiple-word string may be broken between lines, searching for single 
words is more reliable. The find routine places you in the edit mode, or 
displays a message to inform you the string was not found. 


Printing 

The printout function sends your text to a printer, after selecting margins, 
line spacing, and the case-conversion option. Pressing Enter in response to the 
offered options selects the default value indicated. The case conversion option 
prints the text exactly as it appears on the Model I’s screen (all upper case and 
with the embedded @ symbols), or converts it (a bit sluggishly, using a BASIC 
routine) to normal mixed case for a final printout. 


Variables 
B$: CHR§(8), used to erase one ~ CL: Equals 31, the character code 
character to the left of the cursor. for ‘clear to end of screen.’’ 
BK: Equals 8, the ASCII code of CR: Equals -1 if the current line 
the backspace character. ends with a carriage return. 
C: The ASCII code of the CR$: Equals CHR$(140), the 
character mode recently typed. graphic block used to represent a 
C$: Used to hold either a single Carriage return. ? 
character from the keyboard or a CU$: Equals CHR$(95), the 


character in a line of text. underscore character used as a 
C1: Temporary storage for CH. cursor. 
CC: The ASCII code of the CV: Equals -1 if the program is to 


character underneath the cursor. convert the text to upper and lower 
CH: The number of characters case using the ‘‘@’’ convention © 


that have been typed in the current described above. 
line. . 
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CX$: Used to hold a single 
character from a line of text. 

ED: Equals -1 if the program is in 
the edit mode. 

EL: The number of the line being 
edited. 

F$: File name. 

F1$: Previous file name (if any). 
I: General loop variable. 

IT: Used in screen display routine 


to determine which line is to be the . 


first displayed. 

J, Ji, K: General loop variables. 
L: Line length. 

L$: Temporary storage of a text 
line. 

L$(*): Main string array to hold 
lines of text. 

L1, L2: Used to determine the first 
and last lines to be displayed on 
the screen during an editing 
session. 

LC: Used in printer output routine 
when using ‘‘@’’ conversion to up- 
per and lower case to determine 
wether a character should be 
printed in upper or lower case. 

LI: Stored the position of the 
printer on a page. 

LL: Line length. 

LM: Left margin for printed out- 
put. 

LN: Number of lines of text in the 
array L$(*). 

LO: Caps lock flag for print 
routine. 

LP: Length of P$. 

LS: Line spacing. 

LW: Maximum number of 
characters per screen line. 


MD: Equals 3 if the program is 
running on a Model III, or 1 if the 
program is running on a Model I. 
NL: Pointer used in edit routine. 
NN: Pointer used to display lines 
in edit routine. 

P, PP: Hold PRINT@ screen loca- 
tions. 

P$: Text line to be printed. 

Q$: Contains the edit mode 
prompt line. 

RE: Equals 140, the character code 
for the graphics block used to 
represent carriage returns. 

RM: Right margin. 

RT: Equals 13, the ASCII code of 
the Enter key. 

S$: Search string. 

S1: Temporary storage for SL. 
S1$: Storage for the previous 
search string. 

SH: Equals -1 if we are using a 
Model I and are placing ‘‘@”’ 
characters before characters that 
are entered using the shift key. 

SL: Last character position at 
which a space occured. 

SP: Equals 32, the ASCII code for 
the space character. 

SS: Number of characters to erase 
when word-wrapping. 

ST: Equals -1 if we are in the 
review mode and are stepping 
through the file line by line with 
the spacebar. , 

TL: Used to manage string posi- © 
tion in the edit mode. 

V1: Vertical screen position. 

X, X$: General usage. 

Z: Timing loop variable. 


§5 56 55 §5 55 5S 5S 55 SS 5S SS 


55 | Ss 
gs TRS-86 BASIC 55 
SS ‘Microtext 27.0’ 55 


§5 Author: Jon R. Voskuil  §§ 
§5 Copyright © 1983 $5 
58 SoftSide Publicatians, Inc $6 
55 55 
§§ §6°55-5$-55.55 SS.55 $§ 55 55 
lf you don’t wish to type this program, it 


is available on issue #42 SoftSide CV 
and DV. 


Branch to start of program. 
{00 CLEARSO: BOTO200 
Subroutine to input a single character from the keyboard. 


110 C=PEEK (14400): IFC=OTHENLIO 

120 IFC=QTHENC=91ELSEIFC={ ATHENC=10ELSEIFC=32THENC=GELSEIFL=647H 
ENC=9ELSEIFC=1 28THENC=32EL SEI 40 

130 RETURN | 

140 C=PEEK (14443): IFC=OTHENI 40ELSECS=INKEY 4s IFC$=""THEND 40 

150 C=ASC(CS) RETURN 

16) BOSUB10: 1FC}=97ANDCM=1 22THENC=C-32 

170 RETURN 


Subroutine to wait for the ENTER key to be pressed. 
1aQ TFINKEY$<4 -CHRS (13) THEN 8GELSERETURN 


Display title page. 


200 CLO:PRINTCHRS (23) 

2lO PRINTOI98, "MI CROTEXYT 2, 9" 

220 PRINT@398, "BY JON R, VOSKUIL":PRINTOS12, "MODIFICATIONS BY RI 
CH BOUCHARD” 

230 PRINT@OS2, "COPYRIGHT {C) 1995"sPRINTS708, “SOFTSIDE PUBLICAT 
TONS, INC." 

240 FORZ=170800: FFINKEY$="" THENNEXTZ 

250 GOTO400 

Lower-case print routine. 

300 IFPPS=""THENS70 

S10 LOK=0:L0=-1:FORK=170LEN(PP$) sCC=ASC (MIDS (PP$,K, 1)): TFCC=3ZTH 
ENLOK=0 

o20 IFCCS }54THENISO 

330 TFLC=OQTHENLOK=-3 

240 LC=0: 6070340 

330 LPRINTCHRS (CC-328 (LEANDCC }O4ANDCC( 91) 3-(NDTLOK) ) s sL0=-1 

360 NEXTK 

370 RETURN 
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Initialization. 

400 CLS 

410 [FNEMSISQO00THENCLEARS2000EL SECLEARMEN-3000 
420 DEFINTA-2 

430 DIMC, BE, CH,LN, CC, CUS,SL,LW,LN 

440 DIMLS(FRE(AS) (50) 

450 IFPEEK(293)=737THENMD=3£L SEMD=! 

$60 TFMD=3THENPOKEL4914,2 

470 SH=0: [FND=iTHENSH=-1 

430 ONERRORSOTO1L0000 

490 RYSQ:RT=13:5P=32:CL=31: BS=CHRG (8) sRE=140: CRE=CHRE (RE) 
300 CH=} 

S10 CUS=CHRS(95) 

azQ LN=] 

woQ LWeb? 

340 P=128 

Main text input loop. 


550 IFEDTHENS7OELSEPRINT@O,CHR$(30):"SAVE:CLR-S  LOAD:CLR-L OR 
EVWECLR-R -EDIT:CLR-E 9 PRINT: CLR-P 

540 PRINTOO4, STRINGS (O35, °-") 3 

370 PRINT@P,""s 

400 CL4PEEK (PEEK (14416) +PEEK (16417) 8256) sPRINTCUSs : IFOCCS2THENCC 
=CC+64 

510 GOSUBIIG 

$20 TFCC32THENG9O 

430 PRINTRG:: IFSHANDC >=97ANDC<=122THENCH=CH+1:LS{LN)=LE(LN} +" 9": 
PRINT" 9"3:C=C-32 

640 CHCH+L: IFCH=LWANDC< DSPANDC< DRETHENGOSUBI O00 

Add character to current string and display on screen. 


h50 L${LN)=L$ (LN) +CHRS(C) 

660 PRINTCHRS(C):: TFOCOS2ANDC4 SRETHENSOO 

&70 YFC=32THENSL=CH: LFCH=LWTHENLN=LN+L SLE (LN)=°": CH=1:SL=0s PRINT 
:BOTOSO0ELSE S00 

680 PRINTCHRS (30) :LN=LN+LLS(LN)="": SL=d:CH=1: BOTOS00 

Routine to handle right-arrow, carriage return, delete, shifted 
left-arrow and clear. 

690 TFC=9THENC=CC: bOTO4I0 

700 TFC=RTTHENC=RE: 6070420 

710 LFL=RKTHENTFEHS 2THENG 1 OELSEPRINTBS: BS: s CH=CH-1:L$ (LN}=LEPTS ( 
LE(LN) ,LEN(L$(LN))-1): 6070500 

720 [FC=24THENPRINTCHRS (29) sCHRS (30) :L$(LN)="":GOTGS00 

730 TFC=CLTHENII10 

749 SOTDSI0 
-Word-wrap line. 

1000 IFSL=OTHENPRINT: GOTOi060 


1910 SS=LW-SL:FORU=17OS5:PRINTBS: NEXT! 
1020 PRINTSTRINGS (55,52) ;:PRINT 


1930 IPSL=LW-1THENIOG6O 
1040 LS(LN+1)=RIGHTS(LSILN) ,LW-1-SL) 
1050 LE(LN)=LEFTS(L9(LN),SL-1) 
60 LNELN+i 
1070 PRINTLS{LN} Cus: 
1080 CH=LEN(LS(LN)}42 
1090 5L=0 
1100 RETURN 
Get a character following a CLEAR character. 
11i0 P=PEEK (16416) +PEEK (16417) 4256-15340 
1120 POKEP+19399, 142 
113G GOSUB140 
1140 POKEP+15399, 32 
1150 IFC=7GANDEDTHENED=0: RETURN 
1360 [FEDTHENI230 
1170 IFC=82THENGOSURI 240: G0TOSS0 
1159 [FC=83THENGOSUBi 430: GOTOS50 
1290 TFC=74THENGOSUBI 680: 6070950 
1206 IFC=B1THENL1G09 
1210 IFC=B0THENGOSUAZ 000: BOTOSS¢ 
1220 [FOSO9ANDLNGLTHENT=LN-2:PP=P: 60582630: GOSUBI240: BOTOIS6 
i230 P=P-1:6070250 
Review routine. 
1240 CLO:PRINT@OQ, CHRS(30);TAB(21): "PRESS ANY KEY TQ PAUSE": PRINT 
STRING$(63,"-") 
$250 IFLN= { THENE 400 
1260 FORI=1TOLN-! 
1270 FORZ=17020:NEXT2 
1289 PRINTLS(1) 
1290 IFINKEYS=""ANDNOTSTTHENI 370 
is 600 5 Sy= 
1310 PP=PEEK (14414) +PEEK (16417) 4254-19340 
i320 PRINTS, CHRS(30);" ENTER: CONTINUE SPACEBAR: STEP 1 
LINE E:EDIT ee NS oe 5 
1330 6O5U5160 
1340 IFC=69THENGOSUB2 430: 60701240 
1350 TFC=iSTHEN1 380 
1360 IFCCS3ZTHENT S20 
1370 Sf=-1 
1380 PRINTSPP, °°"; 
1390 NEXTI 
1400 PRINTL§ILN): 
1410 P=PEEK (16416) +PEER (16417) 9256-15340 
1420 RETURN 


Save routine. 
1430 PRINT@S4, STRINGS (43, "- ~"}pEPRINTOO, STRINGS (43,32): :PRINTOO, * 


SAVE TO TAPE OR DISK? {T/D/CLEAR) “| 
1440 BOSUHIbO 
1450 TFC=CLTHENT 676 
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1440 L$ (G}=STR$ (LN) 4STR$ (1000045121 004CH) 

$470 PRINTSO, CHRS (30): 

1480 IFC=B4THEN1420 

1490 [FC=68THENL4I0 

1500 Fig=F$ 

1510 PRINTAQ, CHRS(30);:LINEINPUT"FILE NANE: "3FS 

1520 IFF$=*"ANDFig=""THENISIO 

i530 IFFS=""THENFS=F i$ 

1540 PRINTGO, CHRS(30); "INSERT DISK AND PRESS ENTER. “:PRINTSTRING 
$(43,"-"): | 

1550 GOSUB180 

1560 GPEN“O",1,F$ 

1570 FORI=OTOLN 

1580 PRINTH,LS(1) 

1590 NEXT! 

1490 CLOSE 

110 GOTOLA7O 

1420 PRINT@O,CHRS(30);"START RECORDER AND PRESS ENTER. "; 
1430 SQSUB180 

1640 FORI=OTOLN 

1450 PRINT#-1, CHRS (34) 3L$(1) sCHRS (34) 

1640 NEXT! 

1670 P=P-1: RETURN 

Load routine. 

{480 PRINTOS4, STRINGS (43, "-")s:PRINTOO, CHRE(30):"LOAD FROM TAPE 
OR DISK? (T/D/CLEAR) *: 

1690 GOSURI40 

1700 IFC=CLTHENL949 

1710 PRINT#O, STRINGS (40,32): 

1720 LFC=B4THENI 980 

1730 [FCC }SOTHENL OBO 

1740 FigeF$ 

1750 PRINT@O, CHRO (30): :LINEINPUT"FILE NAME: "FS 

i740 IFFS=""ANDF1$=""THENI750 

1770 IFFS=""THENFS=F1$ 

1780 PRINTOO, CHRS(30)s "INSERT DISK AND PRESS ENTER. ":PRINTSTRING 
$(63,'-")3 7 
1790 BOSUBIBO 

1800 GPEN'I", 1, FS 

1810 INPUTHS L$ (9) 

1820 GOSURI9SG 

1830 FGRI={TOLN 

{B40 LINEINPUT#I,LG41) 

1B50 NEXT! 

i840 CLOSE 

1870 BOTO1940 

1880 PRINT@O,CHRS(30); "START RECORDER AND PRESS ENTER. *; 
1890 GOSUBIBO 


1900 INPUT#-i,L$(Q):GQSUBI950 
19:0 FORI=1TOLN 
1920 INPUT#-1,.942) 
1930 NEXT! 
1940 GOSUBI1240: RETURN 
1950 L#=L$(0):L=LENIL$) 
1960 CH=VAL (RIGHT#IL$,2)):LS=LEFTS(L$,L-2) 
1970 SL=VAL{RIGHTS{L$, 2) ) sLS=LEFTS(L$,L-3) 
1980 LN=VAL(L$} 
1990 RETURN 
Print routine. 
2000 PRINTOO, CHRE (31); sPRINTOI92, ::LIN=0 
2010 X$="L0"sINPUT"LEFT MARGIN {DEFAULT = 10) "s¥$:LMSVAL(X#) 
2020 PRINT: XS="70": INPUT*RIGHT MARGIN (DEFAULT = 70) "sX#:RM=VAL 
(1$) 
2030 PRINTSY$="2"s ENPUT"LINE SPACING (DEFAULT = 2) "sX$:LS=VAL(X 
$} “ 
2040 LL=RM-LM 
2050 PRINT: X$="N":INPUT"CONVERT TG LOWERCASE, UNLESS PRECEDED BY 
@ (DEFAULT = ND) “sX9:0V=O: TFLEFTS(X$, 1}="Y"ORLEFTS(X$, 1) =CHRS( 
{21} THENCV=-} | 
2060 CLS:LPRINT® “:P¢="":CR=0: 1=6 
2970 T=T+t:P$=P$+L$ (7) 
2080 [FRIGHTS(PS, 1) =CRSTHENCR=-1: 60702100 
£090 IFLEN(P$)<255-LWANDI<LNTHEN2 070 
2109 GOSUBZ170:CR=0 
21i0 TFICLNTHEN?O7O 
2120 LPRINTTABILM) : : TFOV=QTHENLPRINTPS: : G0T021460 
2130 PP#=P$: GOSUB200 
2149 LPRINT" * 
2150 GOSUBL244 
2160 RETURN 
2170 LSLi 
2180 TFLEN{P$) SLLTHEN222 
2790 TFNOTCRTHEN?320 : 
2200 LP=LEN(PS) ST FLPC2THENPP$=""sP¢="": GOTO2240 
22iQ PPS=LEFTS (PS, LP-1) sP$="": 60702240 
62220 CHSMIDS(PS. LL): TFES=" *THEN2250 
2200 L=L-f:TFLPQTHEN2220 
2249 L=Lb 
2250 PPS=LEFTS(P$,L}:P$=RIGHTS (PS, LEN(P$)-L} 
2260 LPRINTTABILM) ss TFCVSOTHENLPRINTPPS: : 60702280 
Ze7Q GOSUBIOG 
2280 FORISLTOLS:LIN=LIN+LSLPRINT" "SNEXTG 
2290 TFLINSS9THENFORJ=1TQ66-LIN:LPRINT® "sNEXTU:LIN=O 
coud TFLEM{P$} SLLTHENL=LL: 60702270 
zei® TFCRANBLENIPS) SOTHEND 200 
2o20 RETURN 
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Re-justification routine. 


9330 CLO:PRINTOO, CHRS(30):"RE-JUSTIFYING TEXT. . .* 
2340 LIN=EL7LN=LN-1 

7350 PH="*:CR=0: TSEL-1 

B360 [=]+i:PS=PS+L$ 1D) 

2370 IFRIGHTS (PS, 1) =CRETHENCR=-1 260702390 
FRAO IFLEN(PS)+LEN(LS (141) ) 256ANDICLNTHENZ 360 
2390 GOSUB2A70 

2400 IFNOTCRTHEN2430 

9410 YT+i-LINs [PXSQTHEN2480 

2490 FORISI+iTOLN:L& (0-2) =L6 (0) eNEXTOsLNELN-Xs 60702480 
PARQ IFIXLNTHEN2360 

2449 LEILIND=PS 

9450 CHSLEN(PS$}+1:SLSLEN(PS) 

2440 FORISLINCITOLN:L§(T}="*:NEXT! 

2470 LNELIN 

2480 RETURN 

2499 LeLW 

2500 TFLEN(PS) SLWTHEN?S40 

9510 [FNOTCRTHEN? 420 

2520 LP=LEN(PS) 

2530 PPS=LEFTS(PS, LP): PH="": 60702080 

2540 CS=MIDS(PS,L,1)sIFC$=" “THENZS70 

2550 LeL-i:TFLHOTHEN2549 

2540 LaLa | 

2570 PPS=LEFTS (PS, 1) :PS=RISHTS (PS, LEN (PS) -L) 

2500 LS(LIN}=PPS 

2590 LINSLIN+I 

9400 IFLEN(P$) (LWTHENL=LW: 60702540 

2610 IFCRANDLEN (PS) SOTHEN2520 


2620 RETURN 
Edit routine. 


2430 TT=TLTFISLSTHENVI=15: 60702670 

2b40 Yi=it2:PRINTSPP,: 

f650 X=]S:TFXSLN-iTHENA=LA-] 

2669 FORTSTT+iTON:PRINTLS (1) NEXT 

2h70 EL=¥i-tIT sis) @{1T-13)-2 

2490 Gi=" UP/DOWN ARROWS:MOVE ENTERSEDIT D,X:DELETE FiFIND C 
LREXIT" 

2590 PRINT@O, CHRS(30) sOS:PRINTSTRINGS (63, "-") 

2700 PRINT@Vith4-2, rear 

Z718 GOSURL4O 

2720 PRINTHS: BS; 

Branch to proper sub-edit routine (cursor up, cursor down, 
delete, find or exit). 


2730 [FCSLQTHEN?7Q0EL SEIFC=CLTHENRETURNELSE TFC=48ANDV I< OSTHENZOS 
DELSETFCSBBANDVI< SSTHENZBSOELSEIFC=RTTHENZIO0ELSEIFC=7QTHENS240E 
LSETFOA SPL THENZ 796 3 

Cursor up. 

Z74G TFVISATHENVISVi-ErEL=EL-1:60702700 
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2750 TFEL=1THENZ700 
2760 EL=EL-S: IFEL¢ STHENEL=1 


2776 PRINTQI27, "":FORJSELTOEL +123 PRINTL# (0) sNEX Td: GOTO2700 
Cursor down. 
2780 IFEL}=LN-1THEN2700 
2790 EL=EL+1 
2H00 IFVICLSTHENVI=V1+1:60T02700 — 
2010 NN=4:TFNN}LN-EL-1THENNN=LN-EL-1 
2820 ELSEL+NNsPRINTS960, + sFORISEL-NNTOGEL: PRINTLE(1) sNEXTI: 607026 
Delete line. ; 
PA30 FORISELTOLN-2:L$(J}SL $6 (3+)) NEYTELS(LN}="" 
2840 ¥=15-Viz IFXSLN-EL THENY=LN-EL 
2850 PRINT@VI 864-45, "":FORISELTOEL +: PRINTLS (J) SNEYTJ 
2R60 IFEL=LN-1THENVI=V1-1:EL=EL-1 
2870 LN=LN-£:60702700 
Delete to end of text. 
2889 PRINTSO, CHR$(30):"DO YOU WANT TO DELETE FROM HERE TO THE EN 
B OF THE TEXT? (Y/N) *: 
2890 PRINTAVI 864-2, "CE": 
2900 CH=INKEY$: IFC$=""THENPRINT@VI964-2," "3:G0702990 
2910 TFCSC}"Y"ANDCS< SCHR$ (121) THEN2490 
2920 FORUSELTOLN:L$id)="":NEXTIsLN=EL:CH=1:SL=0 
2930 PRINTOVI£64-65, "":FORJ=V1TOL4: PRINT: NEXTY 
2940 PRINTOO, CHRS (30) 206; 
2950 PRINT@V1£64-46, "CE": : 60702740 
2940 LIsEL-4: IFLICITHENLI=! 
2970 LISEL+4: IFLE}LNTHENL2=LN 
Edit line. 
2980 CLS:PRINTOO,CHRS(30): "TYPE NEW LINE BELOW (CLR-F TQ FINISH) 
":PRINTSTRINGS (43, "-") 
2990 FORJRLITOEL: PRINTLS (7) ©NEXTI 
‘3000 PRINTPRINTPRINT: PRINT 
3010 FORI=EL+i TOL2:PRINTL$ (J) sNEXTS 
3020 PRINTA{EL-L1+2) 464, 3 
3030 TLNSLNILNELNE! 5; 
3040 FORJSLTOSILS(TLNED)=""SNENTY 
3050 Ci=CH:$1=SL:CH=1:ED=-1 
3069 GOSUR400 
3070 CH=CESSL=S1 
3080 IFLS(LN)=""THENLNELN-1 
3090 NLELN-TLN 
3100 IFNL=iTHENS150 
3110 LFNLSOTHENS 140 
3120 FORJ=ELTOTLNSL$(J)=L$(Je2) NEXT 
3130 LE(LN}="":60703220 7 
3140 FORJ=LNTOEL+ISTEP-1:L$(J4NL-f}=L8(0) eNEYTO 
3150 FORJ=OTONL-1:LS(EL FO) =LS(LNAD) LS CLNGD) =" "ENEYTY 
3140 CXS=RIGHTS(LS(ELENL-1} 1) 
3170 LFCX$=CRSTHENS220 
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Z1BO IFCY$<3" "THENLS(ELtNL-1)=LS(EL+NL-L)+" ° 

3190 SS=i:L$=L$(EL+NL) sLL=LEN(L$) 

3200 IFMIDS{L$,55,2)¢>" "SNDSS¢=LLTHENSS=S941: S0TOI200 

S10 TFLENELS(ELENL-1) ) 455¢=LWTHENGOSUB2330: GOTG3230 

3220 LN=TLNtNL-1 

3230 RETURN 

Search text. | 

3240 PRINTOO, CHRE (30) 5 “SEARCH STRING! "3:S18="": INPUTSIS 

3250 TFS1$¢>""THENS$=S15 

3260 IFS$=*"THENZS96 

3270 IFPEEK {16396} =201 THENZS 10 

3980 FORISEL-iS1$="") TOLN: IFINSTRALS(J) 58) OTHENS 330 

3290 NEXTI 

3300 PRINTOO,CHRS{30):"NOT FOUND. HIT ANY KEY": :GOSUBL10; 607026 
70 

3310 FORISEL-iS1$="") TOLN:FORJI=1 7OLEN (L$ (J) )-LEN (S$) +1: TFAIDS(L 
$(0) G1, LEN(S8) )=S8THENSII0 

3320 NEXTI1, gd: 60703300 

3330 ELad:Vie7s TFVi PEL+2THENVI=EL +2 

T3§G PRINTQI27, "":FORG=1 7012s PRINTLE (ItEL-Vit2) NEXT Us GOTO2670 
Error handling. 

PQ000 PRINTOO, CHRE (30) "ERROR: CODE"sERR/Z+i3" LINE";ERL3*~- P 
RESS ANY KEY"S 

10010 [FINKEY$=""THENIOOS6 
10070 P=P-1:RESUMESOO 
Program exit. 

11000 LPMD=3THENPOKE16916,4 
11016 ONERRORGOTOG: END 


SWAT 


For TRS-80® MICROTEXT 2.0 T A 13 y K 


SWAT . SWAT 7 

LINES CODE LENGTH LINES CODE LENGTH 
100 - 220 CW 341 2000 - 2110 GB 443 
230. - 400 x0 285 2120 - 2230 WH 230 
41g - 520 LN 251 2240 - 2350 BY 283 
530 - 0 LQ 372 2360 - 2470 EL 273 
670 - 1930 YN 342 2480 - 2590 JA 212 
1040 - 1150 PA 216 2600 - 2710 ue 303 
1140 - 1270 LX 273 2720 - 2830 EA 398 
1280 - 1390 XF 258 2840 - 2950 RR 400 
1400 - $510 OK 278 2940 - 3070 ec 294 
1520 - 1630 Md 228 3080 - 3190 PY 319 
1640 - 1750 TP 246 3200 - 3310 C2 320 
1740 - 1870 J0 195 3320 - 11010 DK 219 


1880 - 1990 1 bee 


WW, 
LIFE! 3% 


by Leo Christopherson 
Documentation by Rich Bouchard 

Life Il is a game program for a 32K TRS-80® Model | or Ill. It is the 
bonus program on issue #42 SoftSide DV. See the coupon near the 
back of this booklet to order your disk. 


John Conway presented his original game of ‘‘Life’’ in the October 1970 
issue of Scientific American. Life II is a computerized version of the same 
game, with an additional multi-player game based on ‘‘Life’’. 

You play ‘‘Life’’ on a rectangular grid of almost any size. You start with a 
given pattern of ‘‘cells’’ on this grid, and then apply the “‘rules of ‘Life’ ’’ to 
each position on the grid, to perform the necessary action. Each iteration of 
this process is a ‘‘generation.’’ 

The rules of ‘‘Life’’ are simple: 

@ Ifa position is empty, and has exactly three neighbors, then a new cell is 
“‘born”’ at that location. A ‘“‘neighbor’’ is a cell next to the the empty position 
or a cell being examined. An empty position or cell may have as many as eight 
neighbors. 

@ If a living cell has fewer than three neighbors, or more than four 
neighbors, it dies and disappears. 

@ All other empty locations remain empty, and all other cells remain 
“‘alive.’’ 


REA BDAY NTE PERRIN TE RAIA 
A “‘Life’’ example 


First begin with a simple pattern: 


We start with cells B3, C3, and D3 occupied. By applying 
the first rule of life to every empty cell, we find that new 
cells should be created at C2 and C4. By applying the se- 
cond rule, we see that the cells at B3 and D3 both have only 
one neighbor, and will die. C3, with exactly two neighbors, 
will survive this generation. Thus we get: 


A *‘+”’ represents a newly born cell, and a ‘‘-’’ 
represents a cell that has died this generation. At 
the start of the second generation, our grid will 
appear as shown at left. 


Now the second generation can begin. 
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aq) Life II includes two variations of the game of te oe 
— In one you can enter patterns of living cells, and then watch 
ay the computer run through generations of development. The se- 

a\ cond allows up to four players to compete in the ‘‘Battle of Life,~ 
where players place their androids on a small life grid, and allow them 

9 to battle for supremacy. 


The Game of ‘‘Life’’ 


The Game of Life provides a 62 by 42 unit grid for experiments with different 
life ‘‘organisms.’’ It starts by presenting a blinking cursor on the screen. You 
can move this cursor across the screen with the arrow keys. Pressing ‘‘S’’ will 
place a cell at the current cursor position, and ‘‘R’’ will erase a cell. The 
‘““CLEAR”’ key will remove all living cells from the screen, and ‘‘Q’’ will 
restart the program. : ; 


When you finish creating your life pattern, press ‘‘ENTER’’. The prompt 
will ask for the number of generations you wish to watch. Enter a number, 
and watch the show. While the show is going on, you may press ‘‘S’’ to change 
to the screen display. 

After you have run a few patterns, you may notice some interesting results. 
You will probably find that certain specific cell patterns form on the screen. 
Some, called ‘‘still-lifes,’’ remain stationary. Others alternate between two or 
more different patterns; these are called ‘‘oscillators.’’ Other patterns seem to 
grow forever, and yet others move across the screen in a specific pattern. 
Below are some common figures, and some of the more interesting ones: 


Pe ee | Ae a 
|| | jee! | | 


‘Still-lifes: 


Box Beehive Pond Lake 


Other interesting patterns to try: 


< ‘Blinker’? was used as an example above, and 
ll alternate between a vertical and horizontal 
each of three cells. It is the simplest 


< ‘‘Spaceship”’ is a pattern of cells that travels to 
- the left, moving one unit every four generations. 


> This pattern will evolve into a pattern of four 

blinkers, called ‘‘traffic lights.”’ A number of 
other interesting patterns consist of a single row of 
cells. For example, rows of 7, 8, 9 or 10 produce a 
complicated oscillator which repeats every fifteen 
generations. 


>» The famed ‘‘R-Pentomino.’’ This deceptively 
simple pattern will grow to fill your entire video 
screen. If unlimited by the confines of a video 
screen, it would grow to occupy a huge area. 


You can create many other interesting figures. For example, try a large ‘‘X’’ 
centered in the middle of the screen with each of the four lines drawn from the 
center being nine cells long. Large I-beam shapes, and various geometrical 
shapes (squares, rectangles, triangles, etc.) also produce interesting patterns. 


ET TE 
The Battle of ‘‘Life’’ 

In The Battle of Life, up to four players compete in a game based on the 
““Life’’ rules. A 10x 5 grid is presented, with each square containing a number 
between 01 and 50. One of four life forms (uniped, biped, triped and 
quadruped) fills occupied cells. Players place life forms on the board by selec- 
ting the type of creature to be placed (1-4), followed by the two-digit location 
for it. The creature will then pop into place. This process of adding life forms 
will continue until you press ‘‘S’’ to start the action. 


After you strike the ‘‘S’’ key, the computer examines each location on the | 


grid, applying the normal rules of ‘‘Life’’ to each one. If a creature has too 
few or too many neighbors, it vanishes. If an empty location has exactly three 
neighbor organisms, a new one is ‘‘born.’’ Since there are four different possi- 
ble organisms on the screen, the computer must decide which type of organism 
the new creature will be. If the empty location had two or three neighbors of 
the same type, a corresponding creature type will appear. If its neighbors are 
of three different types, the new creature will be of the fourth type. 

When the computer has run through five generations of “Life’’ the players 
will have another chance to add additional organisms. This process repeats 
until you type ‘‘Q’’. 

The computer does not monitor how many pieces each player places, so the 
players must decide what rules they play by. One common game allows each 
player to place a specific number of creatures at the start, using a simple rota- 
tion. Every five turns each player adds one additional organism, if and only if 
at least one of the creatures remains alive. The process continues until either all 
creatures die off or only one type of creature remains. 

For your first few games, we suggest allowing each player to place the 
following number of pieces at the start of each game: 


Two-player game: 5 
Three-player game: 4 
Four-player game: 3 


While playing this game, don’t be surprised if you see some of the 
creatures on the screen move. In fact, the entire screen will appear 
to be teeming with life — the creatures move, look around, and oO 
speak to one another (attach an amplifier to your cassette as) 
AUX jack to hear this and other sound effects). | ~ 


ay 
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by John F. Gabriel {| 


King Il is a political war game for one or two players. A TRS-80 with 
16K is necessary. 


Two Player Description 

Following your coronation as King, the Royal Advisors besiege you with all 
the problems facing the country. Each year numerous decisions affecting your 
ability to remain in power and the state of the kingdom confront you. To 
simplify the annual decision-making process, you have divided the turmoil in- 
to various phases: Land, Harvest, Riot, Natural Disasters, Economic and 
Political, War Preparation, and Battle. The order and importance of the 
phases varies from year to year; nevertheless you face the future with deter- 
mination and boldness. As the years go by you learn from each decision and 
your country prospers.... 3 

The Land phase is now in progress. Since the kingdom has been acquiring 
and steadily, you can obtain no more. All available land has been settled, so 
you cannot sell any. Deciding to cultivate all of it ends the Land phase. 

At Harvest time, the Royal Advisors inform you that not enough silos are 
available to store the unusually abundant harvest. Retaining enough to feed 
everyone, you sell off all the extra bushels for revenue. You will need this 
money for future exploits. The Harvest phase ends. 

With full silos and prosperity throughout the land, the peasants are happy 
and well-fed. Since you have treated your people splendidly and made no er- 
ratic mistakes, no riots take place. But just in case they do, you sleep better at 
night knowing you have an ample number of Guardsmen to suppress a riot. 

A stroke of luck! You were spared any natural disasters this year. Mother 
Nature treated you kindly and you will take full advantage of this. 


sens sneha 
‘Life, Joy, Empire and Victory”’ 

At last, the moment you’ve been waiting for — the Economic and Political 
phase. Inflation is at a modest level, the capitol city is spacious and beautiful, 
the Guard is more than ample — and you are bored. The time has come. You 
declare war on the hated barbarians in the neighboring kingdom. 

In the War Preparation phase many important decisions must be made 
quickly: whether to enlist men, transfer Guardsmen to the Army, increase 
salaries, purchase arms factories, or purchase weapons. After a short period of 
reflection, you decide to buy the factories to reduce the price of weapons. The 
rest you will obtain later. | 
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Difficulties arise as the Battle phase begins. Since you have few men and 
weapons, you cannot wreak havoc on the enemy. However, the war will go on 
and you will get your chance. The best strategy is a surprise attack on the op- 
posing army. After a merciless raid on their camp, leaving them devastated 
and defenseless, you prepare to march to the capitol and claim the throne. But 
dangers await. The enemy may convince their allies to help retaliate. Worse 
yet, your people may respond to your warmongering and rise up in rebellion. 
Despite these dangers, you simply shrug it off, steadfast, bold, determined. 


The Last Campaign 

Many years have passed. The war has subsided and been forgotten. 
Reminiscing on past conquests, you feel stirring within you those old yearnings 
for the excitement and glory of years gone by. Perhaps the time has come to 
pass on the Crown to your son, who has now grown to young manhood. He 
too is anxious to prove himself on the field of battle. But you wish to die in 
honor, and with the Crown Prince’s help, marshall the resources of the Empire 
for one last expedition of conquest. In the twilight of your reign, with your son 
at your side, you lead the armies into the final climactic battle. Fear of death 
does not concern you. In the end only the memory of your victories will live 
on. 


Notes on Playing — 

King II was designed for two players. One person may play, but the 
challenge is greater with two people. The one-player version does not include 
the War Preparation phase nor the Battle phase, but the other phases will pro- 
vide a challenge (try it and see). 

When the game ends for a player, he receives a rating of his performance, 
based on the following goals: 


Total Land 735,000 Acres 


Salaries $110,000 

Level of Discontent 0 = Lowest 
Guards 880 

Inflation 0 = Low 

Fertile Land 420,000 Acres 
City Land 231,000 Acres 
Population 44,000 

Grain 52,500,000 Bushels 
Wealth $1,100,000,000 


To get a perfect rating of 100%, you do not necessarily need to attain all of 
these goals. A good strategy is to achieve high scores in a few areas. In the two- 
player version, you should expect a lower rating, especially if you have fought 
many battles. When entering battle, troop morale is based on the FOllowisig 
three goals: 


Conscripts 3,000 
Weapons 10,000 
Salaries 50,000 


You cannot go to battle without conscripts and weapons. Be careful of how 
many conscripts you employ and how much you pay them, because the annual 
payroll may plunge you into debt. 


During play, variables interact in simple, meaningful ways. For example, — 


buying factories decreases the cost of weapons. Reducing inflation makes the 
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price of new land less. However, grain sells at a lower price when you bring 
down inflation. Therefore, weigh the effects of your decisions carefully. 


Lists of Variables 


Main Variables 

A-C, Z: Temporary 

F: Who goes first this year (1 = 
first player, 2 = second player) 
P: Number of Phases 

Q: Treasurer’s Report Tab 

R: Secretary’s Report Tab 

S: Land Phase Tab 

T: Turn 

U: Harvest Phase Tab 

W: State of War (0 = Peace, 1 = 
War) 

Y: Used for Dot Placement when 
aligning columns 


A#-C#: Temporary 

PL: Players (1 = first player, 2 = 
second player, 3 = second player) 
X(): Phase Array 

A$-C$: Graphic Strings 

D$,E$: String Formats 

Z$: Temporary Answer 


Note: All of the variables above have two similarly named variables — one for 
each player. For example, Al# = Acres Owned by First Player and A2# = 


Acres Owned by Second Player. 


Subroutine Driver 


#3 Variables 


A3#: Acres Owned 

B3: Conscript and Guard Salary 
C3#: Conscripts 

D3: Discontent (0 = Content to 
100 = Discontent) 

F3: Factories 

G3#: Guards 

H3: Death Status (0 = Alive, 1-7 
= Dead) 

I3: Inflation 

K3#: Fertile Land 

L3#: City Land 

P3#: Population 

Q3#: Weapons 

R34: Stored Grain 

S3: Silos 

W3#: Wealth 

Y3: Year 

Z3: Title 

C3$: Country 

N3$: Name of Player 


The key to understanding how the program is organized and works is the 
Subroutine Driver (lines 400-470). All the subroutines from line 500 on employ. 
#3 variables. What this means is that, since the same process applies to both 
players, only one common subroutine is written. This single subroutine is 
called on, once for each game player. This calling process occurs in three steps: 


1. The Subroutine Driver assigns the appropriate player’s variables to the #3 
variables. 

2. The subroutine is called and performs its operations using only the #3 
variables (with minor exceptions). 

3. The Subroutine Driver assigns the #3 variables back to the same player’s 
variables. 


$5 $5 $5 $$ SS $8 55.S5 $9 §9 5S SS 
5g | 3 
55 TRS-80 BASIC 55 
sg King IP 85 

gs 


SS Author: doha F. Gabriel dr. 
» 55 Copyright © 1983 

Pp SS SottSide Publications, Inc 58 
ae no 
5555 95 55-55. 55.55.55.55 55 $5 85 

If you don’t wish to type this program, it 


is availabie on issue #42 SoftSide CV 
and DV. 


Initialization. 
{0 CLO:PRINTCHRS(23):TAB(L2): "KING TI"sPRINT:PRINTTAB(S:; “SY JOH 
NF GABRIEL JR. ": RANDOM: CLEAR200: AS=STRINGS (64,42) sBS=STRINGS (2, 
42) +CHR$ (32) :CH=CHRE (189) +CHRS (191) +CHRE (190) DS" S88 BES, ERT E 
$2 "SSH, OHF, 88, SER, RHE" O23: R=20: S250: 50 
15 DEFINTY 
20 PRINT: INPUT*NUNBER OF PLAYERS {1-2)"sPL:IFPL¢LORPLO2THENZOELS 
ECLSsFodsW=0: T=0: 417) =9: BOSUB4S30: TFPL=ZTHENGOSUB440 
30 PRINTS INPUT"WHAT IS THE NAME OF PLAYER 1°:Ni$:TFLEN(NIS$) -1O7H 
ENGOSUBTG: GGTOSOELSELFPL=1 THENSO 
49 PRINT: INPUT'WHAT IS THE NAME OF PLAYER 2°;N2$:TFLEN(N2S) 10TH 
ENGOSUBIO: G0TG44 
SO PRINT'YOU HAVE “s:2FPL=2THENPRINT"BOTH *; 
&) PRINT*BEEN CORONATED KING GF YOUR COUNTRY. “sPRINT 
70 PRINTNIG$s: INPUT", GIVE YOUR COUNTRY A NAME"; C1é:TFLEN(C1S) >10 
THENGOSUB9S: GOTO7OELSEIFPL=1 THENIOO 
8) PRINTNZ$::INPUT", GIVE YOUR COUNTRY & NAME"sC2$: IFLEN (C29) >10 
THENGOSUB9D: GOT OBOELSELO0 
90 PRINT"KEEP NAMES LESS THAN 11 CHARACTERS LONG" :RETURN 
Set up phase order for one year; change turn. 
100 T=G:%47)=10: BOSUBS00 F=F tls IPF S2THENF=1 
110 Xi7)=8:G0SUB400: [FW=1THENP=7ELSEP=3 
120 FORT=1TOP:k (T}=G:NEXT: FORT=170P: A=RNDIP) 
130 IFR{AY=OTHENK (AI=T: NEXT: T=0s GOTO S0ELSEA=A+1: [FADPTHENA=1 
140 GETRIN 
Game cycle and game over. 
150 T=Ttis TFT PTHENJOOELSEGOSUB40G: X(T) =11: GOSUB400s IFHI=OANDH2= 
OTHENISGELSEIFH1 SQANDH? }OTHENCLS: PRINTCHRS (23): TAB(4): "LONG LIVE 
THE KINGS! ":PRINTSEND 
140 We: IFHISGTHENIQ0ELSEPRINT: INPUT"DO YOU WANT A NEW CROWN"; 7$ 
tIFLEFT&(2$, 1)="¥"THENA=Ts T=02 X47) =9: GOSUB4 30: T=A: FORAH1TO163PRI 
NT: NEXT: PRINTCHRS (23): TAB (9) :C$2PRINT: GOSUB910: GO70150 
170 IFPL=2THENPL=3sHisO:CLS:PRINTCHRS (23); "BYE NOW. *:PRINT: GOSUB 
910: G0TS1S0ELSE2400 
180 PRINT:INPUT"DO YOU WANT A NEW CROWN"; 2$:TFLEFTS(Z$,i}="Y"THE 
NA=T:T=0:¥ (7) =F: BOSUB440: T=As FORAS=1TOi6:PRINT: NEXT: PRINTCHRS (23) 
sTAR(9) CH: PRINT: GOSUB91G: GOT0190 


KING Il 


wy 
td 
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i90 IFPL=2THENPL=1:H2=0:CLS: PRINTCHR$(23) "BYE NOW. "PRINT: BOSUB 
WO:607O15 HOELSE? 400 

Subroutine driver. 

400 TFPL=1THEN4SOELSEIFPL=3THENS 40 

410 IFF={THENGOSUB430: GOSUB440ELSEGOSUB440: GOSUB4340 

474 RETURN 

430 AS#=A18: B3=B1 C3#=014:D3=Di FSF i: G3e-G1$:H3=H1: Tos] i KaS=Ki 
HL SH=LLds PORHP LH: ISG 1 as RASA LBs S3HS 1 WIR W Le: V8=4 12 73=21:03$= 
CiSsN3$=Ni$: GOSUB450 

440 AYSSASHRISBI Ci s=Cher DIaDGrPisParGis= Ie Hiss: i=LSsK1s=K3 
H#iLIH=L3esPiB=P 3d: O18=O38: RL B=R3F: $1=S3: WIH=W34: ¥i=¥3: 2123: RETY 
RN 

$30 ONX(TIBOTOLOOG, 1100, 1300, 1400, 1600, 1800, 2100, 700, 2460, 2500,5 
Of . 

450 Ad#=A28: B3=B2: 032028: D3=B2:F3=F 2: 638-628: H3SH?: PJs] 2s K3beK? 
$s LIH=L2#:P3S=P 28: G3H=O2%: RIF=RI8s SS=S2s WIRSWTH: VS¥ 2s 25=22: Cis 
C2$sN3$=N2$: GOSUB450 

470 AZ#=A3$: B2=B3: C28=0349: D2=03:F2=F 3: G2H=G 38s H2=HI: [2-1 3s K2S=K3 
SrL2H=L3#: P2H=P 3H: G2H=O34s R2BERGS: $2253 W2HW3Hs Y2=¥ 9s 22ST 3s RET 
RN 

Subroutines 

End of game check. 


500 IFWIR<-SO0000000THENH3=1ELSEIFD3 PRND (20) +70THENHS=ZELSETFLI$ 
CPU#/ BTHENHS=3ELSEIFP SR SOOTHENHS=4EL SEIFIZ}20+RND (10) THENHS=SEL 
SEIFYS>S0THENHS=OEL SETFYSRND (YS) +24 THENHS=7 

ol TFHI=QTHENRETURNELSECLS: GOSUR410:PRINTN3$:", IN YEAR": Y3:PRI 
NT: ONHSGO5UR2 700, 2800, 2700, 3000, 3100, 3200, 3300: PRINT: G0TO3400 
Title maker. 

600 Z3=RNDULZ) 


610 TJ=ZU:TFI=iTHENPRINT"YOUR EXCELLENCY "sELSEIFZ=2THENPRINT "YOU 
R GREATNESS “sELSEIFZ=3THENPRINT “YOUR HIGHNESS “PELSEIFZ=4THENPR 


INT" YQUR I WHENSENESS "sELSEJFZ=STHENPRINT “YOUR IMPERIALNESS } 
520 IFZS6THENPRINT*KING ":ELSEIFZ=7THENPRINT "YOUR LORDSHIP ELS 
EVFZ=RTHENPRINT" YOUR MAJESTY “sELSEIFZ=97HENPRINT" YOUR MIGHTYNES 
B ";ELSEIFZ=10THENPRINT" YOUR ROYALNESS "sELSEIFZ=11 THENPRINT*RUL 
ER "sELSEIFZ=12THENPRINT"SIRE *: 

630 RETURN 
Treasurer’s report. 

700 CLS:PRINTAS; :PRINT #63, BS; :G0SUB600sPRINTNI$:", I YOUR HUMBLE 

TREASURER, DO BEG*:PRINT@i27,B4;"T0 REPORT TO YOU, THE STATUS 0 
FOSyC3$;" IN YEAR": Ys": "sPRINT@191, A$; B$:"PGPULATION's sPRINTTAB 
(G); USINGDS: P3#: Y=268: GOSUBAO0: PRINTIOI9, BS: "CASH RESERVES": 

FLO PRINTTAB(G-8) sUSINGES  W29: Y=335: GOSUBG00: PRINT@393, BS: “TOTAL 

LAND {IN ACRES)"; :PRINTTAB(Q) USINGDS: Ad#s s Y=407: GOSUBBOO: PRINT 
9447, B4:"CITY PROPERTY (IN ACRES)": PRINTTAR (GQ) sUSINGDS;L34: Y=47 
4:G0SURG00:PRINT@S11, BS: "FULL SILOS": 

743 PRINTTABR(G) SUSINGDS: INT (R3$/10000): ¥=524: GOSUEB00 
720 PRINT@S75, Bs "NATIONAL GUARDS"; :PRINTTAB(G) :USINGD$; G38: Y=59 
U2 G0SUBGG0: PRINT@639,. BS: "INFLATION (2) "3 
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725 IFPRCLOTHENPRINTTAB(O+9) : ISELSEPRINTTAB(O+8) 513 

730 ¥=455:G09U8800: PRINTO703, 8S; "THE CITIZENS ARE ’" ss IFDIC OTHE 
TTAB (S) :USINGDS; A#s Y=481: GOSUBGOO: PRINTA704, “HOW MANY ACRES OF S 
EED DO YOU WANT TO PLANT“:PRINTO747,::R8=AR: INPUTD#: [FBR COREE OA 
#THENS QBOELSERSS=B8: RETURN 

1100 CLS:G0SUB10:PRINTNG$:", THIS 19 THE HARVEST PHASE. ":A#=100 
QOOFINT (1341000) sB=2O+INT (134.2): TFHSEC=OTHENLISOELSERR=WIR/ AR: I 


FRE SSQQQ0THENA=30000EL SEA=INT (BH) 
NPRINTSHAPPY" sELSEIFD3< SOTHENPRINT "CONCERNED" ; ELSEIFDSCSOTHENPRI 


NT“WORRIED" s ELSEIFD3<7OTHENPRINT "DISCONTENT"; ELSEPRINT "OUTRAGED" 


740 PRINT®? WITH YOUR PERFORMANCE’: :PRINTO/47, BS; :PRINTO768,A$3: 
BOSUBI 10s IFPL< 2 THENRE TURN 

Secretary’s report. 

750 CLSsPRINTAS: SPRINT@A3, BS: GQSURG10sPRINTNS$;*, I YOUR SECRET 
ARY OF WAR, ":PRINTOI27,89:°00 BEG TO REPORT THE WAR STATUS: "sPRI 
NTO191 ,AGTBSs "CONSCRIPTS": :PRINTTAB(R) :USINGDS; C38: Y=268: GOSURE0 
O:PRINTA19, R$; "FACTORIES"; sPRINTTAB(R) :USINGDS$; F3: Y=331: BOSUBRO 
7&0 PRINTS393, BS; "WEAPONS": :PRINTTAB(R) :USINGDS; O34: Y=3953; BOSUR8 
OO:PRINTO447, 86: "WE ARE AT °";:IFW=QTHENPRINT*PEACE”. “ELSEPRINT® 
WAR?” 

779 PRINTS! BS: :PRINT@S1Z, A$: GOTOP10 

Make a row of dots. 

BGG Y=V¥+i5240 

G10 LEREEK (Y)=4QTHENY=¥+1:G0T081 OELSEIFPEEK (Y) =32THENPOKEY 48: ¥= 
¥+i GOTOBLOELSERETURN 

Phase end response. 

900 PRINT'YOU DON’T HAVE THE RESOURCES TO CONTINUE THIS PHASE." 


910 INPUT*PRESS CENTER? TO CONTINUE"; 2$:RETURN 
Buy land. 


1900 CLO:GOSUBSIO:PRINTNS$:", THIS 19 THE LAND PHASE. ":A=20+INT{ 
13%. 2):PRINT:PRINT*LAND IS SELLING AT (PER ACRE)"::PRINTTAB(S-8) 
FUSINGES: Ar: Y=157: GOSURQ00: [FAI >=GO0000THENPRINT@192, "YOU CANND 
T ACQUIRE ANY HORE LAND THROUGH PURCHASES. °:G0TO1050 

L010 [FHUEC=QTHENPRINT#192, "YOU DON’T HAVE ENDUGH MGNEY TO ACGUI 
RE LAND’: GOTOLOSGELSEAS=WAH/A: TFAB+ASH? 1 GOQQQOTHENAR=1 G00000-A3¢ 
1020 [FASS SZQO0THENB=32000ELSEB=INT (AH) 

1030 PRINT#2546,"THE MOST LAND YOU NAY BUY CIN ACRES) IS"::PRINTT 
AR(S) USINGDS: 8: Y=295: GOSUBRO0: PRINTSI20, "HOW MANY ACRES DO YOU 

WANT TO BUY":PRINT@333, ¢sC=Bs INPUTC: IFCCOORCSBTHENLOSOELSEIFC=07 
HENTOSO 

1640 WSS=W38-CEA  ASR=ASH+C: GOTD1079 

Sell unused land. 

1050 AB=AZS-L38-K34: TFAS{=OTHENI O7OELSE IFAS} 32000 THENB=32Z000ELSE 
BHINT (Ae) 

1060 PRINTO448, "THE MOST LAND YOU MAY SELL (IN ACRES) 15°::PRINT 
TAB(S) sUISINGD$: Bs Y=488: GOSUBBOO:PRINT@GI2, "HOW MANY ACRES DO YOU 
WANT TO SELL" sPRINTSS44,;:C=Os INPUTC: IFCCOORC+BTHENIGGOELSEWS#= 
WS8+CtA: ASS=A34-C 
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Plant seed. ee 

1070 AS=AJ#-L3#: [FAR(=OTHENPRINTOO40, "YOU HAVE NO LAND AVAILABLE 
FOR PLANTING SEED. ":5070916 

1090 PRINTOO40, "THE MOST LAND YOU MAY PLANT (IN ACRES) 15" ;:PRIN 
Buy silos. 

1110 EFAC=OTHENIISOELSEPRINT@128, "THE NUMBER OF SILOS YOU POSSES 

S ARE" :PRINTTAB(U) :USINGDS: 923: Y=162: GOSUBROO: PRINT#192, "EACH 51 

LO CAN HOLD 19,000 BUSHELS OF GRAIN. ":PRINT"EACH SILO COST"; :PRI 

NTTAB (U3) :USINGES: A: Y=270: GOSUBBOD 

1120 PRINT@320, "YOU CAN AFFORD TO BUILD'ssPRINTTAR(U)  USINGDS; As 

Yo343: GOSUBI0Gs PRINTOS4S, "HOW MANY SILOS DO YOU WANT TO BUILO":P 

RINTS419, ¢:C=O2 INPUTC: TFC OGRE PATHENL 1 2QELSEWSH=WIR-ABIC: S3s5340 


Harvest. 

1130 ASRND(S):PRINT@S12, "YOU HAD “;:TFT=10RT=2THENA=At1O;PRINT"A 
N EARLY" ELSEIF T=3GRT=4ORT=STHENA=A+20:PRINT"A NORMAL"; ELSEA=At1 
Q:PRINT"A LATE": 

1140 PRINT" HARVEST, YIELDING™SA;"BUSHELS PER ACRE": AB=K3#KA: PRI 
NT'FOR A TOTAL HARVEST (IN BUSHELS) OF"ssPRINTTAB{U) sUSINGDS; AR: 
¥=611:G0SUB900s A=YS+30+RND (10): BS=P38TA 

1i50 PRINT#O40, "TG FEED YOUR HUNGRY CITIZENS, YOU NEED": :PRINTTA 
BLU}; USINGD$; BH: ¥=678: BOSUBQOO: IFABBSTHEN 200ELSETFRSS<=OTHENI 1 
80 

H160 AF=AS+RGS: RAK: D5=D3+1: [FAS P=BETHENRGB=AR-BE: AS=BS 

1170 PRINTS704, "EXTRA BUSHELS HAVE BEEN SEIZED FROM THE SILOS":P 
RINT'GIVING YOH A TOTAL YIELD (IN BUSHELS) OF": :PRINTTAR(W) SUSIN 
GOS; Ad: Y=G08: GOSUBROG: [FAS >=BRTHENI 200 

Buy grain. : 

1180 PRINTO832,"HOW MANY BUSHELS OF GRAIN WOULD YOU LIKE @";:PRI 
NITAB(U-8) sUSINGES: Bs Y=874: BOSUBBOG: PRINT9O94, :C#=0: INPUT"PER B 
USHEL ": C4: IFO#COORCH? 1 QGQOQQGOTHENT 1 SGELSERMH=WIS-CERR: AB=AR+CH: 
TFAS7=RSTHENI 200 

1190 CH=PRS-INT(AR/A): PABSP3S-C8s DISDS+CH/LO+L PRINTS940, “YOU HA 
VE STARVED TO DEATH: USINGDS:C#:sPRINT" OF YOUR PEGPLE*:PRINT:60 
TOPLG : 

Feed people, seil and store grain. 

i206 A#=AS-BF 

i2id PRINTO960, "YOUR PEOPLE ARE FULL AND CONTENT. “;:G0SUB910:1 
FASS =QTHENRETURNELSECLS: BOSUBAIO: PRINTNG$:", "sPRINT@128, “YOU HAV 
E A BRAIN SURPLUS (IN BUSHELS) GF";sPRINTTAB(U) sUSINGDS: AR: Y=168 
:BGSUBB00 

715 PRINTO192, "UNSOLD BUSHELS WILL RE STORED IN ANY AVAILABLE 5 
1108," 

{220 PRINTO320,"HOW MANY BUSHELS DO YOU WANT TO SELL a";:PRINTTA 
B(U-B) sUSINGES: Bs Y=358s GOSUBBOG: PRINTO304, p :CR=AS: INPUT"PER BUSH 
EL": 08: [FC QORCHASTHENI 220 7 

1230 WAHSWIS+CHERs ARAAS-CESRISSRGHTAB: CH=S3 E1000: TFROBSCETHENPR 
INT* YOU HAD TO DUMP*SISINGDS:R3#-C#::PRINT" BUSHELS. ":R38=C#: 607 
O71 OELSERETURN 
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| Earthquake. 
1300 TFD3 1OTHENRETURNEL SEA=INT (D3/5) :CLS:PRINTCHRS (23): :FORB=17 


GA:PRINTTAB(12):"RIQT":FORZ2=1FOS0:NEXTZZ: NEXT: B=G38%, 009:PRINTs 
GOSUESI0: PRINTNS$:", ": IFACBTHENISIGELSE1330 
1510 PRINT*THE RIOT HAS BEEN CONTAINED BY":PRINT“THE NATIONAL GU 
ARD. ":P3=DI-ABS{A-B) s [FES GTHENDI=0 
1320 PRINT: G07TG910 
i350 PRINT*THE RIGT 15 QUT OF CONTROL! ":D3=D3+RND {A}: 607013520 
1400 A=RND (100): IFACAGTHENRETURNELSECLS: GOSUBG10:PRINTNS$:", DIS 
ASTER HAS STRUCK, ":PRINT:A=RND (3) :ONAGOTOL410, 1470, 1500 
1419 IFPR4SS000THENA=S000ELSEA=INT (P3#) 
1420 A=RNDURNDIRND(RND(RND (A) )))) sPS8=P3-AsPRINT"AN EARTHQUAKE 
HAS KILLED’: USINGDS$:A::PRINT" OF YOUR PEQPLE. ":A=RNDIRND(RND (200 
O)}}2L3#SL F8-As TFLOR<=OTHENL I G=0 
1430 PRINTA: "ACRES QF CITY PROPERTY WERE DESTROYED. ":A=RND(100}: 
IFASPSORS34=0THEN 1 450EL SEA=RND (RND (RMD (RND(53)}3):S3=S3-A: RIS=R3 
#-100008A: TFR3SCOTHENRIS=0 
1440 PRINTA: "QF YOUR SILOS WERE DECIMATED, ALONG WITH THE":PRINT 
en STORED IN THEM." 

450 [FCARPSRTHENCAB=P 3% 
1480 IFG3#}PSSTHENGSS=P 24 
{465 PRINT: GQTOF18 
Tornado or hurricane. 
{470 A=RND (100) :P34=P38-A: B=RND (2): IFBS1THENPRINT"A TORNADO HAS 
RIPPED THROUGH ":C3$:","ELSEPRINT“A HURRICANE HAS BLOWN ASHORE, ° 
1480 PRINT*KILL NG"SA OF YOUR PEGPLE. “: IFK3#>30000THENA=30000EL 
SEA=INT (R34) 
1490 A=RNDIRND(RND{A}}) sK3$=K3#-A:PRINT" YOU HAVE LOST" USINGDS:4 
>:PRINT® ACRES OF SEED, "60701450 
Flood. | 
i500 IFE34}200OGTHENA=3GQ00ELSEA=INT (K3#) 
1510 A=RND(RND(A}):K3#=K34-AsPRINT'A FLOOD HAS SWAMPED';USINGDS; 
AsrPRINT" ACRES OF FERTILE LAND. ":PRINT: GOTO?19 
Fight inflation. 
1690 CLO:S0SURGLO:PRINTNG$:", “:PRINT"THIS IS THE ECONOMIC & POLI 
TICAL FHASE. ":PRINTIPRINT"YQUR OPTIONS ARE: ":PRINT:PRINT"1 - DQ 
NOTHING’:PRINT"2 - FIGHT INFLATION":PRINT*S - EXPAND CITY°:PRINT 
"4 - INCREASE NATIONAL GUARD®:IFPL=2ANDW=OTHENPRINT°S - DECLARE 
WAR” 
1o10 IFPL=2ANDW=1THENPRINT"6 - ASK FOR A TRUCE" 
1424 PRINTSA=L: INPUT" YOUR CHOICE PLEASE" sA: IFAC TORAP6THENIG20ELS 
ETFA=SANDIPL< }20RW=1) THENTSZ0ELSELFA= SAND (PL >20RH=0) THENL 520 
1630 ONAGOTOLS90, 1640,1700, 1730, 1776, 1786 
{440 PRINT: IFES¢ ‘SOTHENPRINTTINELATION 1S UNDER CONTROL. *:6070910 
ELSEIFWS#<=15000THENSQOELSEPRENT" INFLATION IS AT":13;"°% AND 15 U 
NPREDICTABLE TO COMBAT. "sA#=13210000: [FAS WISTHENAS=H54 
1650 PRINT’ YOU MAY INVEST UP TO":USINGESsA#::PRINT” TQ FIGHT IT, 
"sRH=63: INPUT"HOW MUCH CIN $) DO YGU WANT TO INVEST" s Bas TFBS O0R 
Be }ASTHENLSSOELSEA=BH/ 10000: IFAPIOOTHENA=300 
1660 ASRND (A) s TFAPLQOTHENA=100 
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1670 WSH=W39-BH: [3=15-A: [FESS -STHENT 32-5 

1680 D3=D3-A: LEDR<=OTHENDI=0 

1690 RETURN 

Expand city. 

i700 AB=A34-K34-L34: [FAS SIZ0G0THENA=320Q00EL SEASINT (48) 

1716 PRINT: IFAC=OTHENSQQELSEPRINT "YOU HAVE: ":PRINTUSINGDS$: L383 :P 

RINT" ACRES OF CITY LAND GUT OF":USINGDS:Aa#::PRINT® ACRES OWNED 
-"PRINT"YOU MAY SET ASIDE": USINGDS:A::PRINT" ADDITIONAL ACRES. * 

1720 PRINT:PRINT“HOW MANY ADDITIONAL ACRES DO YOU WANT":PRINT"TO 
ALOT “pG$; 2 BeAr INPUTB: [FBCOORB}ATHEN! 720EL SELI#=L34+B: RETURN 

(730 PRINT: AB=P34-CI8-G38: [FAS =OORWIHC BA THENQCOFLSERS=W38/ BF: T 
Ad SBR THENAS=E8 

Increase guard. : 

{740 TFASPLQOOTHENA=1000E! SEA=INT (AS) 

1750 TFAC=GTHENPRINT"YOU HAVE ENOUGH GUARDS FOR NOW. ":GOTOSQOELS 

EPRINT"YOU HAVE: "sPRINTUSINGD$:G34::PRINT® NATIONAL GUARDS AND P 

AY EACH USINGES: B3:PRINT° YOU NAY OBTAIN" USINGDS$:A::PRINT® MORE 

1750 BeAr INPUT"HOW MANY MORE GUARDS DO YOU WANT"sB: IFBCOORBSATHE 

NI7SOELSEG3#=G34S+R: D5=D3+2: RETURN 

Declare war. 

1770 WaisD3=D3+2: 15=15-Z2:PRINT:PRINT"THIS MEANS WAR! ":P=P4+2:¥ (p- 

L)=6:X{P)=7:G070916 

Truce. 

i786 PRINT: GOSUBG10: TFNS$=N1 $THENPRINTN2$:", “ELSEPRINTNI$:", ° 
i/70 INPUT"DG YOU ACCEPT YOUR NEIGHBOR’S TRUCE"; 7$:IFLEFT$(7$, 1) 

="¥"THENW=0:D3=D3-1:PRINT"A CELEBRATION 15 TAKING PLACE. ":PRINTE 
LSEPRINT"THE WAR TRUDGES ON... ":PRINT: IPNS$=NISTHEND2=D2+3EL SEDI 

=B1+3 

1795 GOTOS1S 

1BO0 CLO:GOSURSI1O:PRINTNS$:",":PRINT"THIS I$ THE WAR PREPARATION 
PHASE. “:PRINT:PRINT"YOUR ALTERNATIVES ARE:*:PRINT:PRINT’1 - BO 

Enlist soldiers. 

NOTHING" :PRINT"2 - ENLIST SOLDIERS*:PRINT"3 - TRANSFER GUARDS To 
ARMY":PRINT"4 - INCREASE SALARIES":PRINT"S - PURCHASE FACTORIES 

1805 PRINT"4& - PURCHASE WEAPONS": FRINT 

1819 PRINT:A=LSINPUT" YOUR CHOICE, PLEASE": As IFACLORASQTHENIBIOEL 

SEPRINT: ONAGOTOI690, L820, 1880, 1930, 1950, 1990 

1920 A#=PI$-B34-(C 34: TFASCOORWS#< BA THENQOOEL SERS WAH /B3: IFAS SBETH 

ENA#=B# 

1O30 GPAS+C APRS QTHENAB=P38/2-C348 

1840 TPAR+CIS PS0ORYITHENAR=SO00LY3-C34 

1850 IFAS }SOGOTHENA=SOQ00ELSEA=INT (A8) 

1660 IFACSOTHENPRINT"YOU HAVE YOUR LIMIT OF SOLDIERS. ":GOTOQLOEL 

SEPRINT"YGU HAVE: ":USINGD$: 03%; :PRINT® SOLDIERS AND RAY EACH": US 
INGES: BS:PRINT°YOU NAY OBTAIN: USINGOS:A::FRINT® MORE. ":PRINT 

i870 B=ArINPUT*HOW MANY MORE SOLDIERS DO YOU WANT": Rs: IFRCOORBDAT 

HENIOPOELSECIR=C3$+R: RETUAN 
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Transfer guards. 


1880 JFG3#<=0THENSOOELSEAS=65%: IFABTC39 P38 / STHENAS=P SH /3-Lat 
1890 [FAS+CI#}SOQORYSTHENAR=5008V3-C38 

1900 TFABSSGOQOTHENA=SO00ELSEA=INT (AM) | 

i910 IFACSOTHENPRINT"YOU HAVE YOUR FILL OF TRANSFERS. ":GOTO91OEL 
SEPRINT“YOU HAVE": USINGDS;Az:PRINT® GUARDS THAT YOU CAN TRANSFER 


1920 B=A:INPUT"HOW MANY GUARDS DQ YOU WANT TQ TRANSFER"; Bs IFR<00 

RBSATHENLOZOELSECSH=C38+8: 634=634-B: RETURN 

Buy factories. 

1930 PRINT" YOU PAY YOUR HEN "SUSINGES:B3:PRINT"AND MAY NOT PA 

Y THEN MORE THAN $500, 000":PRINT 

1940 A=O:TNPUT"BY HOW MUCH WOULD YOU LIKE T& INCREASE THEIR PAY" 

SAL IFAC GORA PATHS HGQQOQOTHEN] 940ELSEBISBS+A: RETURN 

1950 A#=1000000+13210G0002 BR=W3#/ Ad: IF RAC =QTHENTOOELSE I FRE 30000 

THENA=30800ELSEA=INT (BF) 

1960 TFFS+A;S0QC00THENA=S00000-F3 

— TFACHOTHENPRINT"YOU HAVE ENOUGH FACTORIES. *:GOTO71OELSEPRIN 
T°YOU HAVE"SUSINGDS:FS;:PRINT® FACTORIES AND CAN BUY"; USINGDSsA: 
iPRINT" MORE":PRINT"AT & PRICE OF SUSINGES: AS: PRINT" APIECE. ":P 

RINT 

1980 B=ArINPUT“HOW MANY FACTORIES 00 YOU WANT";B: IFBCQORBATHENI 

FOOEL SEWS HRW SH-ASTR: FS=F Sth: RETURN 

Buy weapons. 

1990 A#=20000004 132200000; TFFS HOTHENAS=A8/F 3 

ZOG0 BR=W3E/ Hi: [FBS SOQ0OTHENA=I00G0ELSEASINT (BS) 

2010 IFAC=OTHENPOQOELSEPRINT"YOU HAVE": USINGDS: O38; sPRINT" WEAPON 

S.":PRINT"NEW WEAPONS COST": USINGES; +A: sPRINT" APTECE. "sPRINT"TH 

E MOST YOU MAY BUY IS"; USINGDS: A: PRINT 

2020 B=A:INPUT"HOW MANY NEW WEAPONS DO YOU WANT": Bs: IFBCODRBOATHE 

NPOZOELSEWSS=W3S-ARTE: Q38=O59+H: RETURN 

Destroy men and weapons. 

9100 TFC3#¢=00RD3#(=0THENRETURNELSECLS: GOSUBG10:PRINTNS#;", THIS 


1S THE BATTLE PHASE. "s PRINT: B=Q28/ 300: IFBOSSTHENB=33 

2110 A=B:B=C39/90s IFBSSITHENB=33 
2120 A=AtB: B=B3/ 1500: IPBSSITHENB=33 

2130 AZAtB:ASINT(AD:PRINT"MORALE 19 "y:TFAC2OTHENPRINT*VERY LOW, 
MELSEIFACSOTHENPRINT"LOW, "ELSEIFACQOTHENPRINT "NORMAL. “ELSEIFACS¢ 
THENPRINT“HIGH. "ELSEPRINT*VERY HIGH. * 
2240 PRINT:PRINT"YQUR CHOICES ARE:":PRINT:PRINT"! - DESTROY HEN 
AND WEAPONS":PRINT"2 - BOMB FACTORIES*:PRINT*S - BOMB SILOS*:PRI 
NT°'4 - BOMB CAPITOL" :PRINT - 
2150 B=O:INPUT"YOUR ORDERS, CHIEF COMMANDER"; 8: IFB<1ORB>4THENZ15 
OELSEPRINT: IFNSG=N1STHENZ=LELSE7Z=2 

2160 ONEGOTOZ170,2220, 2250, 2290 

2170 B=VHAtRND (A): FZSTANDBSC24THENB=C2#ELSEIFZ=2ANDB>CISTHENBSC 
a 

180 IFI=LTHENP2¥=P28-B:C2=C28-Bs D2=D2+B/ LOGELSEPIS=Pia-Bs Cl a=C 
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18-8: DI=B1+B/100 
2190 PRINT" YOU HAVE INFLICTED"; USINGDS:B::PRINT® CASUALTIES 70 7 
HE ENEMY": B=B+RND(B+1) s [FZ=1ANDB>G23THENB=Q28ELSELF2=2ANDE-OLSTH 
NB=O1# 
2200 IFI=1THENG2#=O024-BELSEO1#=019-8 
2210 PRINT"AND HAVE DESTROYED"; USINGDS:B;:PRINT" OF THEIR WEAPON 
5.":PRINT:BOTO910 | 
Bomb factories. 
2220 B=RND(RND(A)) 37s 2FZ={ANDBF2THENB=F2EL SEIF2=2ANDB Ft THENB=F 
H 
2230 TFZ=1]THENF 2=F2-B: D2=D2+B/SOELSEF 1=F1-B: D1=D1+B/50 
2240 PRINT"YOU KNOCKED OUT"; 8:"ENEMY FACTORIES. ":60T0919 
Bomb silos. 
oe, B=RND (A) #203 JFZ=1ANDBDS2THENR=S2EL SE IF 2=2ANDB $1 THENB=S 1 
2240 TFI=1THENS2=$2-B: D2=D2+B/S0ELSES1=$1-B: D1=D1+B/50 
2270 PRINT*YOU PICKED OFF": USINGDS:5;:PRINT® ENEMY SILOS, “sIFZ=1 
ANDR2#31 0000852 THENRI#= 1 0000%S2ELSEIFZ= ZANDRi#> 100005 1 THENRI#=1 
QO0GI51 
2280 S0TH910 
sou? capitol. : 
200 S=RND(A) $100 TFZ=1ANDEOL ZS THENB=L2SELSEIFZ=2ANDB SLI STHENB=L 
a 
2aQ0 IF Z={THENL 2#=128-B2 D2=D2+B/500: C=RND(B/10) : TFDSP2RTHENC=P 24 
2a10 TFZ=2THENLI@=L19-B: O1=D1+8/500s C=RND(B/10) s TFCOPLATHENCH=P 19 
Zoc0 TFI=1ANDG2#-P2STHENG2B=PZBELSEIFIAZANDG LBP #THENG I S=P 14 
Zea PRENT"YOU REDUCED TQ RUBBLE“; USINGDS: UN ACRES OF THE 
ENENY’S CAPITOL" :PRINT“KILLING  SUSINGDS:C::PRINT" CIVILIANS. ":P 
RINT GGT0910 
Initial setting of variables. 
2400 A#=10002 B3=500:038=0: F3=03 63420: H3=0: [5207 K38=500: Lag=300: 
P3S= 1000: O39=0: R3$=100000s S3=10: W3H=30000s YI=G: [FPL=2THENDS=9ELS 
EDS=21 +RND CS} 
240 RETURN 
Yearly update. 
fo00 Y2=¥3+ Ls LISLS+RND (3) :AB=1S/ 1 OGSR3: FAR FSCOQOTHENA=3Q0Q0ELSE 


_ REINT CAR) 


(2008 B3=B3+4:03=D3-1: FDIC OTHENDI=0 
Z0lG A=P38/ 10: [FAS }3G000THENA=30000ELSEA=INT (AR) 
Zoz0 A=A+RND (A): PAS=P34+h: WIR=WSHtL 98 1 S-CISEBS-B54005; RETURN 
Game end messages. 
2600 CLS:PRINTCHRS$(23): TAB (5) "LONG LIVE THE KING! ":PRINT:END 
2700 PRINT'THE LOANSHARKS SLIT YOUR THROAT.":PRINT"YOU SHOULD HA 
VE STAYED OUT OF DEBT. *:RETURN 
2800 PRINT"YOUR PEDPLE ARE FED UP WITH YOUR RULE AND’: A=RND{3}:] 
PASITTHENPRINT"HAVE HANGED YOU. “ELSEIFA=2THENPRINT“HAVE SHOT YOU 
IN FRONT OF A FIRING SQUAD, "ELSEPRINT"HAVE BURIED YOU ALIVE. * 
2B10 RETURN 
2900 PRINT'DUE 10 THE LACK OF LIVING SPACE, YOUVE BEEN SQUEEZED 
70 DEATH. ": RETURN 


26. 


3000 PRINT®TOO MANY PEOPLE DIED UNDER YOUR RULE. ": 60702800 
3100 PRINT*INFLATIGN SKYROCKETED YOU OUT OF OFFICE. ":PRINT"YOU A 
RE LOST IN SPACE... °:RETURN 
3200 PRINT*"YOU RETIRED FROM OFFICE AFTER A LONG USEFUL LIFE AS & 
ING. ":PRINT"YDUR PEOPLE LOVE AND RESPECT YOU SO MUCH THAT YOUR P 
ICTURE:PRINT"WILL APPEAR ON CURRENCY IN "3C38y"."sPRINT:PRINT"Y 
OU LIVED QUT THE REST OF YOUR LIFE IN SPLENDID RETIREMENT. “:RETU 
RN 
3300 FRINT* YOU DIED OF NATURAL CAUSES IN OFFICE. "sPRINT*YOU WILL 
ALWAYS BE REMEMBERED RY YOUR PEOPLE. ":PRINT:PRINT"MAY GOD REST 
YOUR SOUL... ":RETURN 
Rating. ; 
3400 B#=A3E/700: LFBS3 LOSOTHENBR= 1050 
3410 ASBE: B= BY /20003 [FROSSTHENB=53 
3420 A=A+B: B= (100-3) £10: [FRC QTHENB=OELSEIFB? LO20THENB=1050 
3430 ASAtB: BH=G3H/92 [FBS 1 LOTHENRS=110 
3440 A=A+BR! B=100-13: [FBS LIGTHENB=110 
2450 B=A+Bs BEEK 34/800: [FRE }S2STHENB#=925 
3460 ASAtHH: BH=L38/ 700: [FBR PISOTHENBS=330 
«3470 BaAtBH: RH=PIE/ 40: [FRED LOOTHENBH=1100 
S40 A=A+RS: RHERIH/ OOOO: LF BHD 1 OSOTHENBS=1000 
3490 ASAtBSs BH=HE/ 1000000: s TFREPLLOOTHENBS=1 100 
7500 ASAtHH:ASINT ((ARLOOG) /6050) :AZA/ 10s EFAS LOOTHENA=100 
3510 PRINT’ YOUR RATING IS";As "4": IFASLQQTHENPRINT: PRINT" CONGRATU 
LATIONS ON A PERFECT SCORE." 
320 PRINT: G070910 


int 


Hit SWAT 
D TABLE 


For TRS-80® KING II 


SWAT SWAT 
LINES |= CODE LENGTH LINES CODE LENGTH 
16 0 Pe 542 1450 - 1400 UZ 432 
80 - 140 MC 503 1410 - 1670 FN 525 
170 - 440 RT 559 1480 - 1750 WI 541 
450 - 519 ul 550 1760 - 1800 TX 573 
£00 - 700 ¥Y 527 ——- 1805 - 1880 JA 537 
710 - 740 DW 532 1890 - 1950 NF 508 
750 - 1000 YW 89 1940 - 2020 NL 549 
1010 - {£060 KH a1 2100 - 2176 LY 537 
1070 - 1110 FF 569 2180 - 2260 LS 510 
11270 - 1150 LT 508 2270 - 2400 RR 565 
1160 - 1216 HN 439 2410 - 2900 Vu 557 
1215 - 1310 R? 503 3000 - 3400 = RI 521 
1320 - 1440 EP 516 3410 - 3520 OB 478 
KING I 
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ADVENT UE 


Issue 42 Adventure: 
Arabian Nights 


ance the victim of fe. evil 
magician Roxor’s. spell. 
Scattered throughout the 
desert are the tools and 
magical items you will 
need to acquire the eggshell 
of the great Roc, which 
can restore health to 
the Princess. Beware of 
monsters and poisoned 
water, and heed well the 
advice of the seer! Good 
luck, sahib! 


SoftSide Adventure Series “SV =DV 


What would you say to a program that asks, ‘‘What do you want to do?”’ 
Well, you might say, ‘“GET RUBY”’ or ‘‘KILL GIANT”’, because that’s how 
the SoftSide Adventure Series works. 

Each issue, the latest Adventure takes you to another world of fantasy, 
puzzles, and thrills. Your first task is often simple survival — and even that 
basic feat can be daunting until you figure out the right way to do it. You'll 
have to be ingenious and persevering, and your rewards will be great. 

To ‘‘win’’ a fantasy/adventure game, you must solve the author’s devious 
puzzles, and overcome the obstacles that confront you — whether they be 
dragons or desperadoes. Death, should it come, is transitory — just re-run the 
program to live again! 

Experienced adventurers create detailed maps of each world as they search 
for solutions, but you can omit this exercise if your memory is exceptional. Ex- 
press your wishes with one- or two-word commands, like ‘‘LOOK’’, “‘DROP 
KNIFE’’, or ‘‘GET RUBY’’. Use ‘“‘I’’ to get an inventory of your possessions. 
This issue’s Adventure, Arabian Nights, features the commands ‘‘SAVE 
GAMBE’”’ and ‘‘LOAD GAMBE’’. These permit you to try to solve the Adven- 
ture in more than one sitting. You’ll also want to save the game before trying 


something hazardous, so that you may resume the game, should the results be | 


- adverse, without having to repeat a lot of work. As always, use the command 
‘‘HINT’’ to decode the hints we publish one issue after each Adventure’s ap- 
pearance. The introduction to each Adventure explains this more fully. 

To start up the Adventure, just run the program called ‘‘INTRO”’ or “‘IN- 
TRO.BAS’’ on your disk, or select the Adventure from the DV menu. 


On cassette, the INTRO program is the one just before the Adventure, which 
is the last program on the tape. 


The Adventure runs on any TRS-80 with at least 16K RAM (32K disk). 


Here are the encrypted hints for 
Atlantis, the Adventure in issue 41. 


To find Atlantis: ULOOLD GSV NVINZRW. 

If something you need seems to be missing: OLLP 
RM GSV QFMP LI ZG° IVGVK DSVM SV’H 
WVZW. 

What to do with the coins: GSILD GSVN RMGL 
GSV ULFMGZRM. 


What to do with the rods: RMHVIG [N IZGSVI 
GSZM WILK GSVN. 


To open the foot locker: WVHGILB RG DRGS GSV 
YOZHGVI. 


The injured Atlantean: TL YZXP GL DSVIV SV 
DZH SFIG ZUGVI BLF’EV SVOKVW SRN. 


If you get thrown into jail a second time: TREV FK 
--BLF XZM’G VHXZKV UILN QZRO GDRXV! 
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The Best of SoftSide 


CJ YES...1 want to enjoy the best programs — Games, Utilities, 
Adventures — from SoftSide Magazine’s past. Please rush my 
copies of The Best of SoftSide to: 


Name 
Address 


Citys Sask ee a a State = Zips = 
Here’s my order For The Best of SoftSide 


| Quantity Quantity 
Computer 


Book Only | Book plus Disk 
$19.95 ea. | $68.95 ea. 
i SU es as 
Eo SS eae ee 
noe Mog ay Si | 
Tas dommodiube! 5 8S 


VISA/MasterCard# and Interbank# 
Name of Cardholder 
Signature 


CJ] I’ve already ordered The Best of Soft- 
Side book. I’m enclosing $49 for the disks 
only. 


Total Enclosed $ 


I’m paying by: ( Check (© Money Order 
LO VISA CO) MasterCard 


(Foreign order please include $5 postage. PAY IN USA FUNDS ONLY.) 


Exp. Date 


Like SoftSide? Wait ’til you’ve seen our BEST! 


The Best 
of SoftSide! 


For the past four years, SoftSide Magazine has been bringing Apple®, Atari®, and 
TRS-80® owners the best in BASIC software. But now you can do even better... The _ 
Best of SoftSide. From all our back issues, we’ve selected the most useful...the most 
entertaining...the most fun programs SoftSide has ever published. 

The Best of SoftSide is available in three versions...one for Apple, Atari, and 
TRS-80. Each contains page after page of BASIC code for adventures, simulations, 
practical applications, and much more. 


To order your copy of The Best of SoftSide, fill out the coupon, and mail it 
along with $19.95 to SoftSide, 10 Northern Blvd., Northwood Executive Park, 
Amherst, New Hampshire 03031. 


@ Use And Enjoy These Programs Right 
Away! 


@ Avoid Worry About Typos! 


@ Get Additional Programs to Enjoy 
Without Typing. 


Order this Issue’s Programs on Disk or Cassette! 


Send the coupon below to: 
SoftSide Publications, Inc. 
10 Northern Blvd. 
Northwood Executive Park 
Amherst, NH 03031 


=SV =DV 
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ORDER THIS ISSUE’S MEDIA 


Having difficulty finding the time to input the programs 
from this issue of SoftSide Selections? Don’t despair — the 
cassette and disk versions are still available! And, each DV 
(disk version) contains an additional program. 


C) #42 DV $16.00 () #42 CV $8.00 


Disk Only: 0 Apple® (0 IBM® PC 
Disk or Cassette: CL] Atari® ©) TRS-80® Mod. | [ TRS-80® Mod. II! 


Name 

Address 

Ci Sten ee Zip 
CL] Check or Money Order 

(1) MasterCard (CL) VISA 

Name of Cardholder 

MC# or Interbank#/VISA# _ 

Exp. Date____ Signature 


Prices subject to change without notice. Apple®, IBM®, Atari® and TRS-80® are registered trademarks of The Apple Computer 
Company, International Business Machines, Inc., Warner Communications, and The Tandy Corporation respectively. 
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General Information 


These are the standard procedures for the programs published in 
SoftSide Selections. Sometimes, a particular program does not lend 
itself to these procedures. Always read the specific instructions ac- 
companying a program. They will instruct you if there are any 
variances from the following procedures. Also, back issues of Soft: 
Side may differ in some details. 


At the conclusion of each program listing in SoftSide Selections, 
we include a SWAT (Strategic Weapon Against Typos) Table. SWAT 
for the TRS-80 appeared in SoftSide Issue #30. If you missed Issue 
#30, we’ll send you a free reprint of SWAT. Send a self-addressed, 
stamped envelope to: SoftSide Publications, Inc. 

Department SWAT 

10 Northern Blvd. 
Northwood Executive Park 
Amherst, NH 03031 


Please be sure to tell us that you have a TRS-80 computer. 


Magnetic Media 


Disks are available in Model | or Model III format. They contain the 
DOSPLUS operating system. A cover program runs automatically 
when you boot the disk. Back issues earlier than May 1981 are 
available only in Model | format. If you have a two-drive Model III, you 
can convert such disks with the CONVERT utility. 

Tapes CLOAD in the normal manner on Model I’s, and at low speed 
(500 baud) on Model Ill’s. The first program is a cover/menu program; 
side two of the tape is a duplicate of side one. 

SoftSide Selections disks and tapes are duplicated on reliable, pro- 
fessional equipment. Bad copies are exceedingly rare. Nevertheless, 
the trip through the mail occasionally results in damage to the sen- 
sitive magnetic media. If, after a reasonable number of attempts on 
well-adjusted, clean equipment, you are unable to load a program, 
return it to us along with an exact explanation of your problem. We 
will send you a replacement copy. 

SoftSide Selections media are not copy protected. We urge you to 
make an archival backup copy of your disk or tape as soon as you 
receive it, as our replacement policy is valid only for 30 days. Please 
resist the urge to give away copies of copyrighted material. 


Line Listings 


The line listings in this booklet are in standard 64-column format, 
and they appear exactly as they should on your screen when you type 
LIST. | 


System Requirements 


The necessary memory and other equipment you need to run a pro- 
gram are listed in the introductory paragraph of the article for each 
program. (Also see the SoftSide Adventure Series elsewhere in this 
booklet.) 


= fSide_ 
~ Selections 


Here’s SoftSide Selections, the handy, 
pull-out booklet with program listings for 
your TRS-80® Model | or II] computer. This 
issue, SoftSide Selections for the TRS-80 
features: 


® Microtext 2.0 — This issue’s Front 
Runner is a BASIC word processor with 
editing, printout, and even search com- 
mands. 


@ King Il — Your people’s welfare (and 
your crown) depend on your decisions 
regarding land, crops, and war! 


® TRS-80 DV Bonus Program: Life Il — 
automates the original game of Life, 
featured in Scientific American, and adds 
three new twists — animation, sound, 
and multi-player games. 


® The SoftSide Adventure Series — 
Arabian Nights. The daughter of the 
Caliph of Baghdad lies in a death-like 
trance, the victim. of the evil doe ooh 
Roxor’s spell. 


SOFTSIDE PUBLICATIONS, INC. 


Amherst, New Hampshire 


